OPEN "R", #1, "KickChange",1
FIELD #1, 1 AS a$
CLS
LOCATE 10,10:PRINT "Einen kleinen Augenblick"
LOCATE 12,10:PRINT "Byte :         von : 140"
LOCATE 13,10:PRINT "Check:         von : 6800"
i%=1
READ b$
WHILE (b$<>"ENDE")
  a=VAL("&h"+b$)
  sum =sum +a
  LSET a$ =CHR$(a)
  PUT #1, i%
  LOCATE 12,17:PRINT i%
  LOCATE 13,17:PRINT sum
  i%=i%+1
  READ b$
WEND
CLOSE #1
IF sum <> 6800 THEN
  KILL "KickChange"
  LOCATE 15,5: PRINT "Fehler in Data !!"
END IF
KILL "KickChange.info"

IF sum =6800 THEN 
  LOCATE 15,5:PRINT "KickChange installiert"
  LOCATE 17,5:PRINT "Aufruf vom CLI           :";
              PRINT " 'KickChange'"
  LOCATE 18,5:PRINT "Aufruf von der Workbench :";
  PRINT "Programm-Icon malen und wie ueblich anklicken"
END IF

DATA 00,00,03,f3,00,00,00,00,00,00,00,02,00
DATA 00,00,00,00,00,00,01,00,00,00,11,00,00
DATA 00,01,00,00,03,e9,00,00,00,11,20,3c,00
DATA 03,00,00,33,c0,00,df,f1,80,53,80,4a,80
DATA 66,f4,41,f9,00,00,00,26,23,c8,00,00,00
DATA 20,46,fc,27,00,4e,71,4e,71,46,fc,27,00
DATA 41,f9,00,fc,00,00,43,f9,00,f8,00,00,70
DATA 00,4e,70,20,80,4e,d1,00,00,00,00,00,00
DATA 00,00,03,ec,00,00,00,01,00,00,00,00,00
DATA 00,00,14,00,00,00,00,00,00,03,f2,00,00
DATA 03,eb,00,00,00,01,00,00,03,f2,ENDE